'************************************************************************************************************************
'Description:
'
'This example starts UFT One, opens a new test, and configures it for 'recording and running on a Siebel 7.7 application with AutoLogin feature 'active.
'
'Assumptions:
'UFT is not open.
'************************************************************************************************************************
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.SetActiveAddins Array("Siebel") ' Activate the Siebel Add-in
qtApp.Launch ' Start UFT One
qtApp.New ' Open a new test
' Configure the Siebel application version to use with this test
qtApp.Test.Settings.Launchers("Siebel").Active = True
qtApp.Test.Settings.Launchers("Siebel").Version = "77"
' Specify the URL and configure the browser settings to use with this test
qtApp.Test.Settings.Launchers("Siebel").Address = "http://Siebel_application.url"
qtApp.Test.Settings.Launchers("Siebel").LogoutOnExit = False
qtApp.Test.Settings.Launchers("Siebel").CloseOnExit = True
' Configure the Auto-login parameters to use with this test
qtApp.Test.Settings.Launchers("Siebel").AutoLogin = True
qtApp.Test.Settings.Launchers("Siebel").User = "username"
qtApp.Test.Settings.Launchers("Siebel").Password = "mypassword"
' Configure the advanced timeout and access settings specific for the Siebel 7.7 application
qtApp.Test.Settings.Launchers("Siebel").SiebAutomationRequestTimeout = 120
qtApp.Test.Settings.Launchers("Siebel").SiebAutomationAccessCode = "aCode"
qtApp.Visible = True ' Make the UFT One application visible
Set qtApp = Nothing ' Release the Application object